Imports Microsoft.VisualBasic

Public Class ProfileUtility

    Dim PC As ProfileCommon = New ProfileCommon

    Public Function GetItemPerPage(ByVal UserName As String) As Integer
        Return Integer.Parse(PC.GetProfile(UserName).Site.PageSize)
    End Function

    Public Function HighLightSearch(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.HighLight)
    End Function

    Public Function HighLightExactMatch(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.HighLightExactMatch)
    End Function

    Public Function ReceiveNewsLetter(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.ReceiveNewsLetter)
    End Function

    Public Function ReceiveEmailNotification(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.ReceiveEmailNotification)
    End Function

    Public Function ReceivePrivateMessageNotification(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.ReceivePrivateMessageNotification)
    End Function

    Public Function EnableSmilies(ByVal UserName As String) As Boolean
        Return Boolean.Parse(PC.GetProfile(UserName).Site.EnableSmilies)
    End Function

    Public Function GetTheme(ByVal UserName As String) As String
        Return PC.GetProfile(UserName).UI.Theme.ToString().Trim()
	End Function

	Public Function GetFullName(ByVal UserName As String) As String
		Return PC.GetProfile(UserName).User.Name.ToString().Trim()
	End Function

	Public Function GetWebSite(ByVal UserName As String) As String
		Return PC.GetProfile(UserName).User.Website.ToString().Trim()
	End Function

	Public Function GetAge(ByVal UserName As String) As Integer
		Return PC.GetProfile(UserName).User.Age
	End Function

End Class
